Imports System.Xml
Imports System.Data.SqlClient
Public Class dChequesTerceros
    Public Function Existe(ByVal IdCheque As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        Parametros.Add(New SqlParameter("@pEIdCheque", IdCheque))
        Return (CapaDeDatos.dConexion.Consultar("STORE_TblChequeTercerosBUSCARUNO", Parametros).Tables(0).Rows(0).ItemArray(0) = 1)
    End Function

    Public Function Insertar(ByVal IdCheque As String, _
                              ByVal Importe As String, _
                              ByVal FechaVence As String, _
                              ByVal FechaEmision As String, _
                              ByVal Observacion As String, _
                              ByVal ANombreDe As String, _
                              ByVal Estado As String, _
                              ByVal Banco As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList

        If IdCheque <> "" Then
            Parametros.Add(New SqlParameter("@pEIdCheque", IdCheque))
        End If
        If Importe <> "" Then
            Parametros.Add(New SqlParameter("@pEImporte", Importe))
        End If
        If FechaVence <> "" Then
            Parametros.Add(New SqlParameter("@pEFechaVence", FechaVence))
        End If
        If FechaEmision <> "" Then
            Parametros.Add(New SqlParameter("@pEFechaEmision", FechaEmision))
        End If
        If Observacion <> "" Then
            Parametros.Add(New SqlParameter("@pEObservacion", Observacion))
        End If
        If ANombreDe <> "" Then
            Parametros.Add(New SqlParameter("@pEANombreDe", ANombreDe))
        End If
        If Estado <> "" Then
            Parametros.Add(New SqlParameter("@pEEstado", Estado))
        End If
        If Banco <> "" Then
            Parametros.Add(New SqlParameter("@pEBanco", Banco))
        End If
        Return CapaDeDatos.dConexion.ABM("STORE_TblChequeTercerosAlta", Parametros)
    End Function

    Public Function Anular(ByVal IdCheque As String, ByVal Observacion As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        Parametros.Add(New SqlParameter("@pEIdCheque", IdCheque))
        Parametros.Add(New SqlParameter("@pEIdObservacion", Observacion))
        Return CapaDeDatos.dConexion.ABM("STORE_TblChequeTercerosAnular", Parametros)
    End Function

    Public Function Modificar(ByVal IdCheque As String, _
                                ByVal Importe As String, _
                                ByVal FechaVence As String, _
                                ByVal FechaEmision As String, _
                                ByVal Observacion As String, _
                                ByVal ANombreDe As String, _
                                ByVal Estado As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        If IdCheque <> "" Then
            Parametros.Add(New SqlParameter("@pEIdCheque", IdCheque))
        End If
        If Importe <> "" Then
            Parametros.Add(New SqlParameter("@pEImporte", Importe))
        End If
        If FechaVence <> "" Then
            Parametros.Add(New SqlParameter("@pEFechaVence", FechaVence))
        End If
        If FechaEmision <> "" Then
            Parametros.Add(New SqlParameter("@pEFechaEmision", FechaEmision))
        End If
        If Observacion <> "" Then
            Parametros.Add(New SqlParameter("@pEObservacion", Observacion))
        End If
        If ANombreDe <> "" Then
            Parametros.Add(New SqlParameter("@pEANombreDe", ANombreDe))
        End If
        If Estado <> "" Then
            Parametros.Add(New SqlParameter("@pEEstado", Estado))
        End If
        Return CapaDeDatos.dConexion.ABM("STORE_TblChequeTercerosMODIFICAR", Parametros)
    End Function

    Public Function BuscarFiltrado(ByVal IdCheque As String, _
                                ByVal Importe As String, _
                                ByVal FechaVence As String, _
                                ByVal FechaEmision As String, _
                                ByVal Observacion As String, _
                                ByVal ANombreDe As String, _
                                ByVal Estado As String, _
                                ByVal Banco As String) As DataSet

        Dim Parametros As ArrayList = New ArrayList
        If IdCheque <> "" Then
            Parametros.Add(New SqlParameter("@pEIdCheque", IdCheque))
        End If
        If Importe <> "" Then
            Parametros.Add(New SqlParameter("@pEImporte", Importe))
        End If
        If FechaVence <> "" Then
            Parametros.Add(New SqlParameter("@pEFechaVence", FechaVence))
        End If
        If FechaEmision <> "" Then
            Parametros.Add(New SqlParameter("@pEFechaEmision", FechaEmision))
        End If
        If Observacion <> "" Then
            Parametros.Add(New SqlParameter("@pEObservacion", Observacion))
        End If
        If ANombreDe <> "" Then
            Parametros.Add(New SqlParameter("@pEANombreDe", ANombreDe))
        End If
        If Estado <> "" Then
            Parametros.Add(New SqlParameter("@pEEstado", Estado))
        End If
        If Banco <> "" Then
            Parametros.Add(New SqlParameter("@pEBanco", Banco))
        End If

        Return CapaDeDatos.dConexion.Consultar("STORE_TblChequeTercerosBUSCARFILTRADO", Parametros)
    End Function

End Class


